home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 18 / AMIGAplus Sonderheft 18 (1999)(ICP)(DE)[!].iso / PD / Anwendungen / SPlayer_1.9c / Install_SPlayer next >
Text File  |  1999-01-03  |  11KB  |  271 lines
  1. ;******************************************************************************
  2. ;      ______ ______ __
  3. ;     / ____// __  // /
  4. ;    / /___ / /_/ // /  ______ __  __ ______ _____
  5. ;   /___  // ____// /  / __  / \ \/ // ____// .__/
  6. ;  ____/ // /    / /_ / __  /   \  // __/_ / /
  7. ; /_____//_/    /___//_/ /_/    / //_____//_/
  8. ;                              /_/
  9. ;
  10. ; $VER: SPlayer_Install 0.93a (November-23-1998)
  11. ; splayer ©1996-1998 by Allan Versaevel
  12. ; splayer Installer ©1998 by Robert C. Reiswig
  13. ;
  14. ; If you wish to use any part of this installer you must ask. May not be
  15. ; integrated/placed into any other package! You may NOT change this in an way!
  16. ; Changes, suggestions or problems: vgr@best.com
  17. ;******************************************************************************
  18.  
  19. (set osver (/ (getversion "LIBS:version.library") 65536))
  20. (set vernum1 (getversion "splayer"))
  21. (set ver1 (/ vernum1 65536)) (set rev1 (- vernum1 (* ver1 65536) ) )
  22. (set splayerver (cat ver1 "." rev1))
  23.  
  24. ;********************************************************************
  25. ; English Strings
  26. ;********************************************************************
  27. (set #about (cat "\n\n\n\nWelcome to SPlayer 1.9c \n\n\n©1996-1998 by Allan Versaevel\n") ) ; for some reason the version stoped working so I hard wired this.
  28. (set #todo-prompt "\nWhat parts of SPlayer do you wish to install?\n")
  29. (set #splayer " SPlayer")
  30. (set #extrabin " Extra bins (Needed)")
  31. (set #fonts " fonts (Needed)")
  32. (set #play16 " Play16 (Needed)")
  33. (set #gaip16 " GAIP16 (Needed)")
  34.  
  35. (set #wheresplayer "Where do you wish to install SPlayer. A directory called 'SPlayer' will be created.")
  36. (set #whereplay16 "Where do you wish to install the Play16 program. A directory will not be created.")
  37. (set #wheregaip16 "Where do you wish to install the GAIP16 program. A directory will not be created.")
  38. (set #whatscsi "\nWhat SCSI/HD device does your system use? (examples: scsi.device, 1230scsi.device, PPSscsi2.device)")
  39. (set #askcpu "\nWhat version of Play16 would you like to install?\n")
  40.  
  41. (set #whatdocs "\nWhat SPlayer documentation would you like to install? (The selected ones will be copied over if they are found in this archive.)\n")
  42. (set #wheredocs "Where would you like the SPlayer documentation you selected to be installed?")
  43.  
  44. (set #preprefs "\n\nIf you are installing or upgrading SPlayer before version 1.9c you should select the 'Make new config, delete old one.' option because the prefs file format has changed.")
  45. (set #doconfig "\nDo you wish to:\n")
  46. (set #goconfig "\n\nNext you will need to tell the installer where some of the support programs are that SPlayer uses. A new updated config file will be made. This needs to be done.")
  47.  
  48. (set #yconfig " Make new config, delete old one. [Suggested]")
  49. (set #nconfig " Use current config file.")
  50. (set #wheresgapi "Where do you have Gaip16 installed for AHI support?")
  51.  
  52. (set #wheresplay16 "Please select where the file 'Play16' is located.")
  53. (set #wheresMpega "Please select where the file 'mpega' is located.")
  54.  
  55. (set #byebye (cat "\nSPlayer Install Complete!\n\n" " "))
  56. ;********************************************************************
  57. ; Hello
  58. ;********************************************************************
  59. (message #about)
  60. (welcome)
  61.  
  62. ;*********************************************************************************
  63. ; Ask user what to install
  64. ;*********************************************************************************
  65. (set ToDo (askoptions (choices  #splayer #extrabin #fonts #gaip16) ;#play16
  66.                       (prompt #todo-prompt)
  67.                       (help #todo-prompt)
  68.                       (default 31)
  69.           )
  70. )
  71.  
  72. ;********************************************************************
  73. ; Ask where to Install splayer
  74. ;********************************************************************
  75. (set splayerdir (askdir (prompt #wheresplayer)
  76.                         (help   #wheresplayer)
  77.                         (default "sys:")
  78.                 )
  79. )
  80.  
  81. (set where splayerdir)
  82. (set @default-dest where)
  83.  
  84. ;********************************************************************
  85. ; Make Directory and copy over splayer
  86. ;********************************************************************
  87. (if (IN ToDo 0)
  88.  (
  89.   (if (< (exists (tackon where "SPlayer")) 2) (makedir (tackon where "SPlayer") (infos)) )
  90.   (copyfiles (source "SPlayer") (dest (tackon where "splayer")) (infos) (optional "askuser" "force" "nofail") )
  91.  )
  92. )
  93.  
  94. (if (IN ToDo 1)
  95.  (
  96.   ;;(if (< (exists "s:SPlayer") 2) (makedir "s:SPlayer"))
  97.   ;;(copyfiles (source "bin/s/SPlayer") (dest "s:splayer") (all) (infos) (optional "askuser" "force" "nofail") )
  98.   ;;(copyfiles (source "bin/led") (dest "C:") (infos) (optional "askuser" "force" "nofail") )
  99.  
  100.   (if (< (exists "envarc:SPlayer") 2) (makedir "envarc:SPlayer") )
  101.   (if (< (exists "env:SPlayer") 2) (makedir "env:SPlayer") )
  102.   ;(copyfiles (source "bin/Prefs/Env-Archive/SPlayer/SPlayer.images") (dest "env:SPlayer") (infos) (optional "askuser" "force" "nofail") )
  103.   ;(copyfiles (source "bin/Prefs/Env-Archive/SPlayer/SPlayer.images") (dest "envarc:SPlayer") (infos) (optional "askuser" "force" "nofail") )
  104.  
  105.   ;(if (< osver 39)
  106.   ; (copyfiles (source "bin/RequestFile") (dest "C:") (infos) (optional "askuser" "force" "nofail") )
  107.   ;)
  108.  )
  109. )
  110.  
  111. (if (IN ToDo 2)
  112.  (
  113.   (copyfiles (source "fonts") (dest "fonts:") (all) (infos) (optional "askuser" "force" "nofail") )
  114.  )
  115. )
  116.  
  117.  
  118. (if (IN ToDo 3)
  119.  (
  120.   (set gaip16dir (askdir (prompt #wheregaip16) (help #wheregaip16) (default "C:") ) )
  121.   (copyfiles (source "bin/GAIP16") (dest gaip16dir) (infos) (optional "askuser" "force" "nofail") )
  122.  )
  123. )
  124.  
  125. ;(if (IN ToDo 4)
  126. ; (
  127. ;  (set play16dir (askdir (prompt #whereplay16) (help #whereplay16) (default (tackon where "SPlayer")) ) )
  128. ;  (set gcpu 0)
  129. ;  (if (AND (> #cpu 1) (exists ("Play16_1.7/Play16'020")) ) (set gcpu 1) )
  130.  
  131. ;  (set cpuPick (askchoice (choices "68000" "68020")
  132. ;                         (prompt #askcpu)
  133. ;                         (help   #askcpu)
  134. ;                          (default gcpu)
  135. ;              )
  136. ;  )
  137.  
  138. ;   (if (AND (= cpuPick 1) (exists ("Play16_1.7/Play16'020")) )
  139. ;    ((copyfiles (source "Play16_1.7/Play16'020") (dest play16dir) (newname "Play16") (infos) (optional "askuser" "force" "nofail") )
  140. ;     (copyfiles (source "Play16_1.7/Play16.info") (dest play16dir) (infos) (optional "askuser" "force" "nofail") )
  141. ;    )
  142. ;    (copyfiles (source "Play16_1.7/Play16") (dest play16dir) (infos) (optional "askuser" "force" "nofail") )
  143. ;   )
  144.  
  145. ;  (copylib (source "Play16_1.7/libs/asyncio.library") (dest "libs:") (optional "askuser" "force" "nofail") )
  146.  
  147. ; )
  148. ;)
  149.  
  150.  
  151. ;********************************************************************
  152. ; Ask where and if docs are wanted.
  153. ;********************************************************************
  154. (set docs (askoptions (choices " SPlayer.guide" ) ;  " SPlayer.doc"
  155.                       (prompt #whatdocs)
  156.                       (help #whatdocs)
  157.                       (default 3)
  158.           )
  159. )
  160.  
  161. (if (<> docs 0)
  162.  (
  163.    (set docsdir (askdir (prompt #wheredocs)
  164.                        (help   #wheredocs)
  165.                        (default (tackon where "SPlayer"))
  166.                 )
  167.    )
  168.  
  169.  
  170.    (if (AND (exists "splayer.guide") (IN docs 0))
  171.     (
  172.      (copyfiles (source "SPlayer.guide") (dest docsdir) (infos) (optional "nofail") )
  173.      (if (< (exists (tackon docsdir "GuidePics")) 2) (makedir (tackon docsdir "GuidePics")) )
  174.      (copyfiles (source "GuidePics") (dest (tackon docsdir "GuidePics")) (all) (optional "nofail") )
  175.     )
  176.    )
  177.  
  178.    (if (AND (exists "splayer.doc") (IN docs 1))
  179.     (copyfiles (source "SPlayer.doc") (dest docsdir) (infos) (optional "nofail") )
  180.    )
  181.  )
  182. )
  183.  
  184. ;********************************************************************
  185. ; Make Discs Directory and copy over dir
  186. ;********************************************************************
  187. (if (< (exists (tackon where "SPlayer/Discs")) 2) (makedir (tackon where "SPlayer/Discs") ) )
  188. (foreach "Discs" "#?"
  189.   (copyfiles (source (tackon "Discs" @each-name)) (dest (tackon where "SPlayer/Discs")) (optional "nofail") )
  190. )
  191.  
  192. ;********************************************************************
  193. ; Check for S:SPlayer/Splayer.prefs ...
  194. ;********************************************************************
  195. (set doconfig 0)
  196.  
  197. ;(message #preprefs)
  198. ;(if (= (exists "ENV:SPlayer/Splayer.prefs") 1)
  199. ;  (set doconfig (askchoice (choices #yconfig #nconfig)
  200. ;                           (prompt #doconfig)
  201. ;                           (help   #doconfig)
  202. ;                           (default docongif)
  203. ;                )
  204. ;  )
  205. ;)
  206.  
  207. (set doconfig 0) ; Set to YES
  208. (message #goconfig)
  209.  
  210.  
  211. (if (= doconfig 0)
  212.  (
  213.    ;(set gaip16dir (askdir  (prompt #wheresgapi)
  214.    ;                       (help   #wheresgapi)
  215.    ;                       (default "SYS:")
  216.    ;               )
  217.    ;)
  218.  
  219.    (set play16dir (askdir  (prompt #wheresplay16)
  220.                            (help   #wheresplay16)
  221.                            (default "C:")
  222.                   )
  223.    )
  224.  
  225.    (set MpegaDir  (askdir  (prompt #wheresMpega)
  226.                            (help   #wheresMpega)
  227.                            (default "C:")
  228.                   )
  229.    )
  230.  
  231.    ;(set scsidevice (askstring (prompt #whatscsi)
  232.    ;                        (help   #whatscsi)
  233.    ;                        (default ".device")
  234.    ;                )
  235.    ;)
  236.    (set scsidevice "")
  237.  
  238.  
  239.    (set configwrite (cat (tackon play16dir "Play16\n")
  240.                          (tackon MpegaDir "Mpega\n")
  241.                          (tackon gaip16dir "GAIP16\n")
  242.                          (cat "0/0" "\n")
  243.                          (cat "131075" "\n")
  244.                          (cat "000" "\n")
  245.                          (cat "00000" "\n")
  246.                          (cat "00" "\n")
  247.                          (cat "001" "\n")
  248.                          (cat "010" "\n")
  249.                          (cat "2" "\n")
  250.                          (cat "64" "\n")
  251.                          (cat "0" "\n")
  252.                          (cat "MyScsi.device" "\n")
  253.                          (cat "1" "\n")
  254.                     )
  255.    )
  256.    ;;(message configwrite)
  257.  
  258.    (if (< (exists "envarc:SPlayer") 2) (makedir "envarc:SPlayer") )
  259.    (if (< (exists "env:SPlayer") 2) (makedir "env:SPlayer") )
  260.  
  261.    (textfile (dest "ENV:SPlayer/Splayer.prefs") (append configwrite))
  262.    (copyfiles (source "ENV:SPlayer/Splayer.prefs") (dest "ENVARC:SPlayer") (optional "nofail") )
  263.  )
  264. )
  265.  
  266. ;********************************************************************
  267. ; End Bye
  268. ;********************************************************************
  269. (set @default-dest (tackon where "splayer"))
  270. (exit #byebye)
  271.